home *** CD-ROM | disk | FTP | other *** search
- /*
- * File: gem_mp.c
- * SGoldthorpe 20-Jul-91
- *
- */
-
- /*
- * QUICK HACK TO LET GEM USERS USE MIDIPLAY
- */
-
- #include <string.h>
- #include <osbind.h>
-
- #define CL_SCR "\033H\033J"
-
- main(argc,argv,envp)
- int argc;
- char *argv[],*envp[];
- { char pathname[96];
- char tail[255];
- int i;
-
- /* GET PATHNAME OF EXECUTABLE */
- Dgetpath(pathname,0);
- strcat(pathname,"\\midiplay.ttp");
-
- /* GET PARAMETERS */
- *tail='\0';
- for(i=1;i<argc;i++)
- { strcat(tail," ");
- strcat(tail,argv[i]);
- };
-
- /* CLEAR SCREEN AND DISPLAY INFO */
- printf(CL_SCR);
- printf("gem_mp running: %s%s\n\n",pathname,tail);
-
- /* EXECUTE MIDIPLAY WITH PARAM STRING */
- Pexec(0,pathname,tail,envp);
-
- /* STOP UNTIL RETURN PRESSED */
- printf("\n**** PRESS RETURN TO QUIT ****\n");
- for(;(Bconin(2)&0xff)!=13;);
- };
-